POINT Software Programming/PPROG1.ISO/pascal/swag/dos.swg/0088_Warm-Cold Boot.pas

Pascal/Delphi Source File | 1995-02-28 | 309 b | 20 lines

{ Boot system
 If warm is true a warm boot is performed, else a cold boot }
Procedure Boot (Warm:Boolean);
Begin
Asm
  sti
  cmp Warm, 0
  je  @cold
  mov AX, 0
  jmp @boot
 @cold:
  mov AX, 1
 @boot:
  mov DS, AX
  mov AX, 1234h
  mov [0472h], AX
 End;
Inline ($EA/$00/$00/$FF/$FF);
End;